home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
text
/
xes.lha
/
XES
/
REXX
/
FileOp.xdme
< prev
next >
Wrap
Text File
|
1995-08-01
|
859b
|
40 lines
/* $VER: FileOp.xdme 1.0 (01 Aug 1995) */
/* Copyright © 1995 Fergus Duniho */
IF ~Show("L","rexxreqtools.library") THEN
IF ~addlib("rexxreqtools.library", 0, -30) THEN EXIT
PARSE ARG HAIL .
tagstr = "rt_reqpos=reqpos_centerscr rtfi_matchpat=~(#?.xsrc) rtfi_flags=freqf_patgad"
SELECT
WHEN HAIL = "Saveas" THEN DO
oktext = "_Save"
hailstr = "Save File As ..."
tagstr = tagstr || "|freqf_save"
END
WHEN HAIL = "Replace" THEN DO
oktext = "_Load"
hailstr = "Replace File With ..."
END
OTHERWISE EXIT
END
OPTIONS RESULTS
ADDRESS 'XDME.1'
'rxresult $path'
P = result
'rxresult $fname'
N = result
F = '(' || rtfilerequest(P,N,hailstr,oktext,tagstr) || ')'
IF rtresult = 0 THEN EXIT
"chfilename" F
IF HAIL = "Replace" then DO
rx "XES:Rexx/LoadFile"
END
ELSE DO
rx "XES:Rexx/SaveFile"
END